home *** CD-ROM | disk | FTP | other *** search
/ How To Lose A Guy In 10 Days Press Kit / How to Lose a Guy in 10 Days Press Kit.iso / pc / Program.dxr / Internal_7.ls < prev    next >
Encoding:
Text File  |  2003-01-17  |  586 b   |  16 lines
  1. on setCenterStage
  2.   stageHeight = the stageBottom - the stageTop
  3.   stageWidth = the stageRight - the stageLeft
  4.   monitorHeight = getAt(getAt(the desktopRectList, 1), 4)
  5.   monitorWidth = getAt(getAt(the desktopRectList, 1), 3)
  6.   monitorDifference = (monitorWidth + 0.0) / (monitorHeight + 0.0)
  7.   if monitorDifference > 2 then
  8.     monitorWidth = monitorWidth / 2
  9.   else
  10.     nothing()
  11.   end if
  12.   centerHeight = (monitorHeight / 2) - 240
  13.   centerWidth = (monitorWidth / 2) - 320
  14.   (the stage).rect = rect(centerWidth, centerHeight, centerWidth + stageWidth, centerHeight + stageHeight)
  15. end
  16.